VAR
 n,c,i:integer;
BEGIN
while true do
    c:=3;
END. 
